home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  10 lines
  1. 1  REM "<CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>ABUG HELLO<CTRL-M><CTRL-M>LINE 4 IS MM/YY INFO<CTRL-M><CTRL-M>THE APPLE LOGO IS A REGISTERED<CTRL-M>TRADE MARK OF APPLE COMPUTER INC.<CTRL-M>PROGRAM AND WORKINGS BY<CTRL-M>JIM LUTHER KCMO<CTRL-M>
  2. 2 P = 24579:C = 16384: HOME : POKE 230,32: CALL  -3086: HGR : PRINT  CHR$(4)"BLOAD STARTUP.OBJ"
  3. 3 A = 25083:B = 26523:D = 17824: GOSUB 9: CALL P:A = 26524:B = 28364:D = 18496: GOSUB 9: CALL P:A = 28365:B = 30477:D = 18496: GOSUB 9: CALL P:A = 30478:B = 33189:D = 19095: GOSUB 9: CALL P:C$ = "ABUG": FOR I = 1 TO 4:C$ = C$ + CHR$(8): NEXT : SPEED= 210: VTAB 21
  4. 4 A$ = "DISK OF THE MONTH"
  5. 5 I = (40 - LEN(A$))/2: FOR X = 1 TO I:A$ = " " +A$: NEXT : GOSUB 6: PRINT : PRINT :A$ = "       <PUSH ANY KEY TO CONTINUE>": GOSUB 6: SPEED= 255: POKE 36,40: GET A$: TEXT : PRINT : PRINT  CHR$(4)"-DEMOS/INFO": END 
  6. 6  FOR I = 1 TO  LEN(A$): INVERSE : PRINT C$;: NORMAL :M$ =  MID$ (A$,I,1): PRINT M$;: IF M$ = " "  THEN  FOR J = 1 TO 25: NEXT 
  7. 7  IF M$ < >" "  THEN  FOR J = 1 TO 2:S =  PEEK( -16336): NEXT 
  8. 8  NEXT : CALL  -868: RETURN 
  9. 9 N = A:L = 60: GOSUB 10:N = B:L = 62: GOSUB 10:N = D:L = 64: GOSUB 10:N = C:L = 66: GOSUB 10: POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: CALL 768: RETURN 
  10. 10  POKE L,N - INT(N/256) *256: POKE L +1, INT(N/256): RETURN